home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1 Issue 2 / PDCD-1 - Issue 02.iso / _utilities / utilities / 003 / _armbob / !ArmBob_progs_main_Circles < prev    next >
Encoding:
Text File  |  1994-02-26  |  143 b   |  13 lines

  1. /* Circles */
  2. main()
  3. {
  4.  local r;
  5.  mode(28);
  6.  seed(time());
  7.  for(r=500;r>20;r-=10)
  8.    {
  9.     gcol(0,rnd()%16);
  10.     circlefill(640,512,r);
  11.    }
  12. }
  13.